Bar procedure

  DECLARATION:  Bar(X1, Y1, X2, Y2 : Integer);

      PURPOSE:  Draws a rectangular bar on screen

         UNIT:  Graph

      REMARKS:  Draws a solid rectangle (as used in Bar Graphs) using the
                and color defined by SetFillPattern or SetFillStyle.

                NOTES:  Errors are returned through GraphResult.

                        To draw a an outlined bar, call Bar3D with a depth
                        of zero.

 RESTRICTIONS:  Must be in graphics mode prior to calling.

      EXAMPLE:  Uses Graph;

                Var
                   Gd, Gm : Integer;
                   i, width : Integer;

                Begin
                   Gd := Detect;
                   InitGraph(Gd, Gm, '');
                   If(GraphResult <> grOK) Then
                      Halt(1);
                   Width := 10;
                   For i := 1 To 5 Do
                      Bar(i*width, i*10, Succ(i)*width, 200);
                   Readln;
                   CloseGraph;
                End.